home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / lisp / eulisp / you-075a.lha / you-075a / standard0.em < prev    next >
Text File  |  1992-06-18  |  2KB  |  85 lines

  1. ;; Eulisp Module
  2. ;; most of levels 1 and 0
  3. ;; Standard modules...
  4. ;; modified for the compiler!!
  5. ;; $Header: /denton_export/denton/You/NewYou/Src/RCS/standard0.em,v 1.8 1992/05/28 12:25:10 pab Exp $$
  6.  
  7. ;; Getting this right is necessary:
  8. ;;   If your system is generic, uncomment semaphores
  9. ;;   If you are compiling this module, uncomment the boot line, 
  10. ;;   and comment the initcode line.
  11.  
  12. (defmodule standard0
  13.   (lists 
  14.    list-operators
  15.    extras0
  16.    macros0
  17.    others
  18.    arith
  19.    streams
  20.    calls
  21.    ccc
  22.    vectors
  23.    tables
  24.    formatted-io
  25.    strings
  26.    (except (defcondition) errors)
  27.    symbols
  28.    (except (defgeneric defmethod call-next-method generic-lambda) generics)
  29.    (except (defclass defstruct) classes)
  30.    characters
  31.    threads
  32.    defs
  33.    (except (null) class-names)
  34.    ;;(only (find-applicable-methods) boot)
  35.    initcode
  36.    semaphores
  37.    )
  38.   ()
  39.  
  40.    ;; hack
  41.  
  42.    (defmethod generic-prin ((x generic-function) stream)
  43.      (format stream "#<~a: ~a>"
  44.          (class-name (class-of x))
  45.          (generic-name x)))
  46.    (defmethod generic-write ((x generic-function) stream)
  47.      (format stream "#<~a: ~a>"
  48.          (class-name (class-of x))
  49.          (generic-name x)))
  50.  
  51.    (expose
  52.     lists 
  53.     list-operators
  54.     extras0
  55.     macros0
  56.     others
  57.     arith
  58.     streams
  59.     calls
  60.     ccc
  61.     vectors
  62.     tables
  63.     formatted-io
  64.     strings
  65.     errors
  66.     (except (defcondition) errors)
  67.     symbols
  68.     (except (defgeneric defmethod call-next-method generic-lambda) generics)
  69.     (except (defclass defstruct) classes)
  70.     classes
  71.     characters
  72.     threads
  73.     defs
  74.     (except (null) class-names)
  75.     semaphores
  76.     initcode
  77.     ;;(only (find-applicable-methods) boot)
  78.     )
  79.   
  80.   (defconstant *compiler-hack* 42)
  81.   
  82. )
  83.  
  84.  
  85.